﻿Public Class DialogGroupMenu
    Public Sub New()

        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.
        AddHandler Datagriddetail.CellClick, AddressOf DGV_CellClick
    End Sub
    Public Overrides Function validationAdd() As Boolean
        'Return MyBase.validationAdd()
        Dim retval As Boolean = False
        If Not vnamagroupmenu.Text = String.Empty Then
            retval = True
        End If
        Return retval
    End Function
    Public Overrides Function validationEdit() As Boolean
        'Return MyBase.validationEdit()
        Dim retval As Boolean = False
        If Not vnamagroupmenu.Text = String.Empty And Not vgroupmenu.Text = String.Empty Then
            retval = True
        End If
        Return retval
    End Function
    Public Overrides Function validationDel() As Boolean
        'Return MyBase.validationDel()
        Dim retval As Boolean = False
        If Not vnamagroupmenu.Text = String.Empty And Not vgroupmenu.Text = String.Empty Then
            retval = True
        End If
        Return retval
    End Function
    Public Overrides Sub ParamFind()
        MyBase.ParamFind()
        ParamCari = New Object() {"*", "rsitemmenugroup", "namagroupmenu", ""}
    End Sub
    Dim Params() As Object
    Private Sub ProcGetData()

    End Sub

    Private Sub DialogGroupMenu_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ParamFind()
        searchitem()
        setentry(False)
    End Sub

 
    Private Sub vnamagroupmenu_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles vnamagroupmenu.TextChanged

        If CbxCari.Checked Then
            ParamCari = New Object() {"*", "rsitemmenugroup", "namagroupmenu", vnamagroupmenu.Text}
            searchitem()
        End If
    End Sub

End Class
